home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / fe < prev    next >
Text File  |  2002-09-18  |  864b  |  35 lines
  1. /*
  2.  * The FE script... showing you the wonders of /fe!
  3.  * Current supported version: ircii-EPIC
  4.  * Mass* has never been easier! (tm)
  5.  */
  6.  
  7. alias opalot fe ($2-) xx yy zz {mode $0 $1ooo $xx $yy $zz}
  8.  
  9. alias banalot fe ($2-) xx yy zz {mode $0 $1bbb $xx $yy $zz}
  10.  
  11. #alias kickalot fe ($1-) xx {kick $0 $xx}
  12. alias kickalot for xx in ($1-) {kick $0 $xx}
  13.  
  14. alias masskick kickalot ${[$0]?[$0]:C} $remw($N $onchannel($0))
  15.  
  16. alias massdeop opalot ${[$0]?[$0]:C} - $remw($N $chops($0))
  17.  
  18. alias opall opalot ${[$0]?[$0]:C} + $nochops($0)
  19.  
  20. alias cuh {
  21.     ^local foobar
  22. #    fe ($onchannel($0)) ix { push foobar $userhost($ix) }
  23.     for ix in ($onchannel($0)) { push foobar $userhost($ix) }
  24.     @ function_return = foobar
  25. }
  26.  
  27. alias botsweep (target, chan default "$C") {
  28.     @ :nicks = onchannel($chan)
  29.     @ :uhs = cuh($nicks)
  30.     kickalot $chan $copattern($uh($target) uhs nicks)
  31. }
  32.  
  33. load guh
  34. #hop'94
  35.